home *** CD-ROM | disk | FTP | other *** search
/ Revista CD Expert 37 / CD Expert nº 37.iso / LastCall / lastcall.exe / stuff / lastcall.dxr / 00153_Decimal point behavior.ls < prev    next >
Encoding:
Text File  |  2000-03-27  |  387 b   |  26 lines
  1. property pSpr, pOldDigit, pNewDigit
  2.  
  3. on beginSprite me
  4.   pSpr = sprite(me.spriteNum)
  5.   pSpr.visible = 1
  6.   pOldDigit = 0
  7.   pNewDigit = 0
  8.   mUpdate(me)
  9. end
  10.  
  11. on mUpdate me, newPrice
  12.   global gPlayerTips
  13.   if voidp(newPrice) then
  14.     newPrice = gPlayerTips
  15.   end if
  16.   if newPrice < 1000 then
  17.     pSpr.visible = 1
  18.   else
  19.     pSpr.visible = 0
  20.   end if
  21. end
  22.  
  23. on endSprite
  24.   pSpr.visible = 1
  25. end
  26.